home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MAJOR / Tunings / tuned chords < prev   
Encoding:
Text File  |  1998-10-23  |  5.9 KB  |  104 lines  |  [TEXT/ScoM]
  1. Cent tunings for specific chords
  2.  
  3. (create-tonality dim (cents-to-freqs '(0 316 583)))
  4. (create-tonality dim7 (cents-to-freqs '(0 316 583 898)))
  5. (create-tonality dim17 (cents-to-freqs '(0 316 583 919)))
  6. (create-tonality halfdim7 (cents-to-freqs '(0 316 583 1018)))
  7. (create-tonality halfdim7u7 (cents-to-freqs '(0 267 583 969)))
  8. (create-tonality halfdim911 (cents-to-freqs '(165 316 583 1018)))
  9. (create-tonality halfdim9 (cents-to-freqs '(204 316 583 1018)))
  10. (create-tonality ele (cents-to-freqs '(0 347 702)))
  11. (create-tonality ele7 (cents-to-freqs '(0 347 702 1049)))
  12. (create-tonality ele9 (cents-to-freqs '(165 347 702 1049)))
  13. (create-tonality ele7s5 (cents-to-freqs '(0 347 782 1049)))
  14. (create-tonality ele9s5 (cents-to-freqs '(165 347 782 1049)))
  15. (create-tonality ele9no5 (cents-to-freqs '(0 165 347 1049)))
  16. (create-tonality sep (cents-to-freqs '(0 267 702)))
  17. (create-tonality sep6 (cents-to-freqs '(0 267 702 884)))
  18. (create-tonality sep69 (cents-to-freqs '(204 267 702 884)))
  19. (create-tonality sep7 (cents-to-freqs '(0 267 702 969)))
  20. (create-tonality sep9 (cents-to-freqs '(204 267 702 969)))
  21. (create-tonality sep9no5 (cents-to-freqs '(0 204 267 969)))
  22. (create-tonality sep711 (cents-to-freqs '(0 267 702 1049)))
  23. (create-tonality min (cents-to-freqs '(0 316 702)))
  24. (create-tonality min6 (cents-to-freqs '(0 316 702 884)))
  25. (create-tonality min69 (cents-to-freqs '(204 316 702 884)))
  26. (create-tonality min7 (cents-to-freqs '(0 316 702 1018)))
  27. (create-tonality min9 (cents-to-freqs '(204 316 702 1018)))
  28. (create-tonality min11 (cents-to-freqs '(0 316 498 1018)))
  29. (create-tonality min9no5 (cents-to-freqs '(0 204 316 1018)))
  30. (create-tonality maj (cents-to-freqs '(0 386 702)))
  31. (create-tonality maj6 (cents-to-freqs '(0 386 702 884)))
  32. (create-tonality maj7 (cents-to-freqs '(0 386 702 1088)))
  33. (create-tonality maj9 (cents-to-freqs '(204 386 702 1088)))
  34. (create-tonality maj69 (cents-to-freqs '(204 386 702 884)))
  35. (create-tonality maj679 (cents-to-freqs '(204 386 884 1088)))
  36. (create-tonality maj7s11 (cents-to-freqs '(0 386 590 1088)))
  37. (create-tonality maj9s11 (cents-to-freqs '(204 386 590 1088)))
  38. (create-tonality maj9no5 (cents-to-freqs '(0 204 386 1088)))
  39. (create-tonality dom7 (cents-to-freqs '(0 386 702 969)))
  40. (create-tonality dom9 (cents-to-freqs '(204 386 702 969)))
  41. (create-tonality dom9no5 (cents-to-freqs '(0 204 386 969)))
  42. (create-tonality dom711 (cents-to-freqs '(0 386 702 1049)))
  43. (create-tonality dom13 (cents-to-freqs '(204 386 884 969)))
  44. (create-tonality dom27 (cents-to-freqs '(204 386 906 969)))
  45. (create-tonality dom13s9 (cents-to-freqs '(267 386 884 969)))
  46. (create-tonality domf5 (cents-to-freqs '(0 386 583 969)))
  47. (create-tonality domf5u9 (cents-to-freqs '(0 435 583 1018)))
  48. (create-tonality doms5 (cents-to-freqs '(204 386 772 969)))
  49. (create-tonality doms9 (cents-to-freqs '(267 386 702 969)))
  50. (create-tonality domf9 (cents-to-freqs '(105 386 702 969)))
  51. (create-tonality alt (cents-to-freqs '(267 386 772 969)))
  52. (create-tonality ttsub (cents-to-freqs '(84 386 583 969)))
  53. (create-tonality domf9s5 (cents-to-freqs '(112 386 814 969)))
  54. (create-tonality doms9f5 (cents-to-freqs '(267 386 583 969)))
  55. (create-tonality dom7u9 (cents-to-freqs '(0 435 702 1018)))
  56. (create-tonality dom9u9 (cents-to-freqs '(204 435 702 1018)))
  57. (create-tonality minmaj7 (cents-to-freqs '(0 316 702 1088)))
  58. (create-tonality minmaj7b (cents-to-freqs '(0 316 702 1081)))
  59. (create-tonality minmaj9 (cents-to-freqs '(204 316 702 1088)))
  60. (create-tonality minmaj9no5 (cents-to-freqs '(0 204 316 1088)))
  61. (create-tonality aug (cents-to-freqs '(0 386 772)))
  62. (create-tonality aug7 (cents-to-freqs '(0 386 772 969)))
  63. (create-tonality augmaj7 (cents-to-freqs '(0 386 772 1088)))
  64. (create-tonality augmaj9 (cents-to-freqs '(275 386 772 1088)))
  65. (create-tonality q3 (cents-to-freqs '(0 498 996)))
  66. (create-tonality q4 (cents-to-freqs '(0 294 498 996)))
  67. (create-tonality sus2 (cents-to-freqs '(0 204 702)))
  68. (create-tonality sus4 (cents-to-freqs '(0 498 702)))
  69. (create-tonality 7sus2 (cents-to-freqs '(0 204 702 996)))
  70. (create-tonality 7sus4 (cents-to-freqs '(0 498 702 996)))
  71. (create-tonality 9sus4 (cents-to-freqs '(204 498 702 996)))
  72. (create-tonality maj7sus4 (cents-to-freqs '(0 498 702 1088)))
  73. (create-tonality maj7sus4f5 (cents-to-freqs '(0 498 583 1081)))
  74. (create-tonality maj7f9 (cents-to-freqs '(0 105 386 1088)))
  75. (create-tonality maj7s9 (cents-to-freqs '(0 298 386 1088)))
  76. (create-tonality maj7add11 (cents-to-freqs '(0 386 498 1088)))
  77. (create-tonality majaddf9 (cents-to-freqs '(0 105 386 702)))
  78. (create-tonality majadd9 (cents-to-freqs '(0 204 386 702)))
  79. (create-tonality majadds9 (cents-to-freqs '(0 267 386 702)))
  80. (create-tonality majadd11 (cents-to-freqs '(0 386 498 702)))
  81. (create-tonality majadds11 (cents-to-freqs '(0 386 551 702)))
  82. (create-tonality minaddf9 (cents-to-freqs '(0 112 316 702)))
  83. (create-tonality minadd9 (cents-to-freqs '(0 204 316 702)))
  84. (create-tonality minadd11 (cents-to-freqs '(0 316 498 702)))
  85. (create-tonality minadds11 (cents-to-freqs '(0 316 583 702)))
  86. (create-tonality phr9no5 (cents-to-freqs '(0 112 316 1018)))
  87. (create-tonality clus6 (cents-to-freqs '(0 204 702 969)))
  88. (create-tonality clus7 (cents-to-freqs '(0 204 386 969)))
  89. (create-tonality clus8 (cents-to-freqs '(0 204 386 551)))
  90. (create-tonality clus9 (cents-to-freqs '(204 386 551 702)))
  91. (create-tonality clus10 (cents-to-freqs '(386 551 702 841)))
  92. (create-tonality clus11 (cents-to-freqs '(551 702 841 969)))
  93. (create-tonality clus12 (cents-to-freqs '(702 841 969 1088)))
  94. (create-tonality clus13 (cents-to-freqs '(0 841 969 1088)))
  95. (create-tonality clus14 (cents-to-freqs '(0 105 969 1088)))
  96. (create-tonality clus15 (cents-to-freqs '(0 105 204 1088)))
  97. (create-tonality clus16 (cents-to-freqs '(0 105 204 298)))
  98. (create-tonality odd1 (cents-to-freqs '(0 386 702 969)))
  99. (create-tonality odd3 (cents-to-freqs '(204 386 702 969)))
  100. (create-tonality odd5 (cents-to-freqs '(204 386 551 969)))
  101. (create-tonality odd7 (cents-to-freqs '(204 551 841 969)))
  102. (create-tonality odd9 (cents-to-freqs '(204 551 841 1088)))
  103. (create-tonality odd11 (cents-to-freqs '(105 551 841 1088)))
  104.